home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr01 / halcn305.zip / GSDMO_14.PAS < prev    next >
Pascal/Delphi Source File  |  1993-05-02  |  1KB  |  41 lines
  1. program GSDMO_14;
  2. {------------------------------------------------------------------------------
  3.                                DBase File Maker
  4.  
  5.        Copyright (c)  Richard F. Griffin
  6.  
  7.        20 January 1993
  8.  
  9.        102 Molded Stone Pl
  10.        Warner Robins, GA  31088
  11.  
  12.        -------------------------------------------------------------
  13.        Program that creates a dBase file.
  14.  
  15.        Demonstrates the use of GS_DB4Build to create a dBase file.  A
  16.        file 'MYFILE.DBF' will be created.
  17.  
  18. -------------------------------------------------------------------------------}
  19.  
  20. uses
  21.    GSOB_DBF;
  22.  
  23. var
  24.  
  25.    MyFile : GSO_DB4Build;   {Creates a dBase IV file}
  26.                             {Use GSO_DB3Build for a dBase III file}
  27.  
  28. begin
  29.    with MyFile do
  30.    begin
  31.       Init('MyFile');
  32.                      {Insert the fields into the file}
  33.       InsertField('FIELD1','C',8,0);      {Character, length 8}
  34.       InsertField('SECOND','D',8,0);      {Date (length 8)}
  35.       InsertField('THIRD','L',1,0);       {Logical (length 1)}
  36.       InsertField('FOURTH','N',6,2);      {Number, length 6, 2 Decimals}
  37.                      {End insertion by calling Done to close the file}
  38.       Done;
  39.    end;
  40. end.
  41.